注册表如何禁止程序运行后^^^^

用注册表禁止无法弹出警告语，用VBS可以出提示框：
复制下面的代码到记事本，然后保存为扩展名是.vbs的文件（默认是.txt，要自已改一下），运行该程序就可以了。
Dim bag,pipe,honker,good
Do
good="." '定义为本地计算机
set bag=getobject("winmgmts:\\"& good &"\root\cimv2") 'l连接到cimv2命名空间
set pipe=bag.execquery("select * from win32_process where name='qq.exe' or name='qqgame.exe' or name='winmine.exe'") '看，这是我的计算机上不允许运行的程序，qq、qqgame、winmine（扫雷）如果你还有其他的程序不允许运行，很简单，在其中添加 or name='你不允许运行的程序名'
for each i in pipe
i.terminate()
msgbox "发现盗版系统，现已进行功能限制！" & vbcrlf & "请使用正版软件！",,"微软提示" '此行其实可有可无，有这行只是为了免去怀疑
next
wscript.sleep 60000 '每1分钟检测一次
loop
'如果我自己想运行这些程序该怎么办呢,很简单，Ctrl+Alt+Del三个键齐按，打开windows任务管理器，在进程中结束Wscript.exe和wmiprvse.exe进程的运行就可以了